  Public Sub replace(ByRef a() As Long)